Shareware Grab Bag/Shareware Grab Bag.iso/007/ladybug.arc/DYNA.BUG

Text File | 1984-03-14 | 512 b | 38 lines

to "startup
draw
make "vx 0
make "vy 0
end

to "readkey
if rc? output readcharacter
output "
end

to "command
make "com readkey
if :com = "r  right 30 stop
if :com = "l  left 30  stop
if :com = "k  kick     stop
end

to "moveturtle
setxy  xcor + :vx   ycor + :vy
end

to "dt
repeat 1000 [setxy  xcor + :vx   ycor + :vy    if rc? [command] ]
dt
end

to "kick
make "vx :vx + sin heading
make "vy :vy + cos heading
end

make "vx "'0
make "vy "'0
[command] ]
dt
end